home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / Examples / examples.zoo / chg.txed < prev    next >
Encoding:
Text File  |  1991-11-01  |  301 b   |  20 lines
  1. /* shift:                    */
  2. /*       is used to shift the lines in the      */
  3. /*       block to the left or right by n bytes  */
  4. trace o
  5.  
  6. parse arg direct count . rows . cols .
  7. options results
  8.  
  9. 'T'
  10. say 'time='time('e')
  11. do forever
  12.     'insert say '
  13.     'd 1'
  14.     if rc ~= 0 then leave 
  15.     end
  16.  
  17. say 'time='time('e')
  18.  
  19. return
  20.